SETUP   

   TRAP ACTIVE FORCE LINE NO   
   TRAP ACTIVE INTERRUPT NO

PROGRAM MAIN   
   DPY-#    
   DPY-BLOCK WRITE PROGRAM   
   EX DELAY   
   
! Get start and end addresses   
   DPY-START ADDRESS = /1   
   DPY-END ADDRESS = /2   
   DPY-DATA = /3
   DPY-WRITING DATA#
   
   WRITE @ REG1 = REG3
   
WLOOP:
   WRITE @ REGF = REG3
! For some reason I saw sketchiness with just thw write below so I added the one above for good measure
   WRITE @ REGF INC = REG3


!   DPY-WRITING $3 AT $F
!   EX DELAY
   IF REG2 >= REGF GOTO WLOOP
   
   DPY-END OF PROGRAM#

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! DELAY ROUTINE
   
PROGRAM DELAY
REG1=40
0:
DEC REG1
IF REG1 >0 GOTO 0